home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
clisp.zip
/
DEFSTRUC.FAS
< prev
next >
Wrap
Text File
|
1994-02-05
|
15KB
|
207 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
#Y(#:TOP-LEVEL-FORM-2 #20Y(00 00 00 00 00 01 D5 D6 D7 31 7A D5 D8 5F 2C 03 04 C0 19 01)
%STRUCTURE-REF SETF-EXPANDER %STRUCTURE-STORE SETF %SET-DOCUMENTATION
)
#Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-SYMBOL-OR-ERROR
REMOVE-OLD-DEFINITIONS
#Y(DS-SYMBOL-OR-ERROR #18Y(01 00 00 00 00 02 A8 8B 03 03 00 19 02 D5 D6 AA 5E 02)
"~S: this is not a symbol: ~S" DEFSTRUCT
) )
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-ARG-DEFAULT
REMOVE-OLD-DEFINITIONS
#Y(DS-ARG-DEFAULT
#34Y(02 00 00 00 00 03 99 57 57 74 A7 88 5F 0D AA D5 A9 5C 02 14 5C 02 19 04 9B 19 04 8F 00
7A AA 99 1A 71
)
%FUNCALL
) )
#Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
DS-MAKE-CONSTRUCTOR-BODY REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-CONSTRUCTOR-BODY
#166Y(05 00 00 00 00 06 D5 D6 AE 02 21 80 4D AE 23 03 80 50 9F 20 80 50 C5 14 AC 5C 02 14 77
02 77 01 5F AB 98 1F 80 72 90 00 98 57 74 DD B3 02 21 80 43 B3 23 03 80 49 B3 23 0C 80
4C CE 14 D6 AA 5C 03 14 9B 56 1B 80 44 DC 9C 57 57 74 5C 02 14 5C 03 F6 80 02 16 01 7F
00 1A 48 D7 AD AD 5C 03 1A FF B9 C4 1A FF B1 DA AC DB DC A3 57 74 77 02 5C 04 1A FF A7
DE DC B4 77 02 D6 AB 5C 04 1A 42 DF A9 CB 5D 02 1A FF BA CD 1A FF B1 E4 9C 57 57 57 74
90 05 5C 03 1A FF B6 16 01 A7 7C A3 00 E5 32 02 20 5D 02 19 06
)
LET OBJECT %MAKE-STRUCTURE LIST MAKE-LIST MAKE-ARRAY :ELEMENT-TYPE QUOTE SETF %STRUCTURE-REF
NTH (OBJECT) VECTOR SVREF AREF THE (OBJECT)
) )
#Y(#:TOP-LEVEL-FORM-6 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-ARG-WITH-DEFAULT
REMOVE-OLD-DEFINITIONS
#Y(DS-ARG-WITH-DEFAULT
#35Y(02 00 00 00 00 03 A9 8A 08 10 A9 A9 37 06 C0 F8 C1 F7 6E 56 8E 00 06 9B 19 04 9A 19 03
AA A8 2F 02 19 04
)
#.#'FIRST #.#'EQ DS-ARG-DEFAULT
) )
#Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-BOA-CONSTRUCTOR
REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-BOA-CONSTRUCTOR
#286Y(06 00 00 00 00 00 90 06 9F 57 74 D5 A8 D6 37 02 88 B3 07 D7 A8 D6 37 02 30 B3 14 8E 00
07 16 01 5F A8 5F 1A 22 D8 D9 B0 AC 90 04 AD 5E 05 98 56 1A 10 83 01 00 14 DA D6 37 02
88 B3 08 A7 8A 08 6D 98 14 80 02 7F 01 A8 89 92 67 16 02 A7 7D 43 00 A8 01 02 1A 05 A8
80 00 7F 02 A9 88 92 0B 83 02 01 14 DA D6 37 02 89 B3 6C A7 31 43 16 02 F6 DB AA D6 37
02 30 B3 75 01 02 1A 15 00 16 03 1A 29 DD 99 57 74 5C 02 1A 2D A8 B0 6C 07 80 00 7F 02
A9 88 92 0B 83 02 01 14 DA D6 37 02 89 B3 69 8F 00 59 DB A8 31 43 58 16 03 14 DD AB D6
37 02 6D B3 8E 00 4C 00 F6 DE DE AD D6 37 02 30 B3 75 01 02 8F 02 16 83 02 01 14 DA D6
37 02 88 B3 0B A8 B3 6C 07 80 00 7F 02 8E 02 6A A7 31 43 16 02 F6 5F B1 5F 1A 18 83 01
00 56 1C 10 90 00 B0 D6 37 02 88 B3 07 90 00 B4 6C 07 80 02 7F 01 A8 89 92 64 16 02 A7
7D 43 00 32 02 20 76 6F 04 20 DF AB A9 B3 B3 B3 B3 B3 6A 05 0B 5C 04 19 0B
)
&KEY #.#'EQ &ALLOW-OTHER-KEYS
"~S ~S: the argument list for the BOA contructor ~S must not contain ~S: ~S" DEFSTRUCT
#.LAMBDA-LIST-KEYWORDS &OPTIONAL DS-ARG-WITH-DEFAULT &REST &AUX DEFUN
DS-MAKE-CONSTRUCTOR-BODY
) )
#Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
DS-MAKE-KEYWORD-CONSTRUCTOR REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-KEYWORD-CONSTRUCTOR
#61Y(06 00 00 00 00 00 D5 AE D6 5F AC 1A 19 90 00 A8 6C 02 5C 01 1A 07 90 00 98 56 1B 71 00
14 AA 7C A1 02 16 01 7F 00 98 20 6D 16 01 A7 30 A3 16 01 76 AF AF AF AF AF 6A 05 03 5C
04 19 07
)
DEFUN &KEY DS-ARG-DEFAULT DS-MAKE-CONSTRUCTOR-BODY
) )
#Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-PRED
REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-PRED
#123Y(04 00 00 00 00 05 AA 02 21 2D 00 14 D8 AD D9 AE 02 21 32 AE 23 07 80 45 DD E6 E2 E7 B0
77 03 E0 E8 E9 B2 77 03 D6 B3 77 02 77 03 5C 04 14 77 04 77 01 32 02 20 19 05 D5 D6 D7
AE 77 02 77 02 77 02 5C 01 1A 46 DA D6 AF 77 02 C6 5D 02 1A 5E E0 E1 D6 B2 77 02 77 03
5C 01 5D 02 1A 50 DD DE AE 23 0A 6C E2 E3 B0 77 03 E0 E4 B1 D0 78 02 D6 B3 77 02 77 03
5C 02 5D 02 1A FF B2
)
PROCLAIM QUOTE INLINE DEFUN (OBJECT) %STRUCTURE-TYPE-P (OBJECT) LIST AND (CONSP OBJECT) 0. EQ
(CAR OBJECT) > (LENGTH OBJECT) NTH (OBJECT) (SIMPLE-VECTOR-P OBJECT) (LENGTH OBJECT) SVREF
OBJECT
) )
#Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-COPIER
REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-COPIER
#84Y(03 00 00 00 00 04 A8 02 21 1F A8 23 00 1B 00 14 D9 AC DA AC 02 21 20 AC 23 00 1F 9D 20
1F CF 14 77 04 77 01 32 02 20 19 04 D6 D7 D8 AD 77 02 77 02 77 02 5C 01 1A 58 C6 1A 65
C7 1A 62 DD DE DF E0 E1 E2 D7 A4 57 74 77 02 77 04 77 02 77 02 CE 5D 02 1A 4B
)
LIST PROCLAIM QUOTE INLINE DEFUN (STRUCTURE) (%COPY-STRUCTURE STRUCTURE)
(COPY-LIST STRUCTURE) LET* (OBJ-LENGTH (ARRAY-TOTAL-SIZE STRUCTURE)) OBJECT MAKE-ARRAY
OBJ-LENGTH :ELEMENT-TYPE
((DOTIMES (I OBJ-LENGTH OBJECT) (SETF (AREF OBJECT I) (AREF STRUCTURE I))))
(LET* ((OBJ-LENGTH (LENGTH STRUCTURE)) (OBJECT (MAKE-ARRAY OBJ-LENGTH)))
(DOTIMES (I OBJ-LENGTH OBJECT) (SETF (SVREF OBJECT I) (SVREF STRUCTURE I)))
) ))
#Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-ACCESSORS
REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-ACCESSORS
#131Y(04 00 00 00 00 05 5F A9 98 1F 80 70 90 00 98 56 1C 80 5C AC 90 01 6C 00 99 57 74 9A 57
57 57 74 D6 D7 D8 AC B5 77 01 AC 77 04 77 02 77 02 D6 D7 D9 AD 77 02 77 02 77 02 DA AC
DB DC AD B7 02 21 19 B7 23 0A 20 04 10 20 23 CE 14 DE B1 5C 03 14 77 03 77 04 5C 03 16
03 1A 16 DD D7 BA 77 02 DE B2 5C 04 1A 6A E0 B0 CC 5D 02 1A 63 CD 1A 5B 00 14 AA 7C A1
02 16 01 7F 00 1A FF 8C 16 01 A7 30 A3 19 06
)
CONCAT-PNAMES PROCLAIM QUOTE FUNCTION INLINE DEFUN (OBJECT) THE %STRUCTURE-REF OBJECT LIST
NTH (OBJECT) AREF SVREF
) )
#Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) DS-MAKE-DEFSETFS
REMOVE-OLD-DEFINITIONS
#Y(DS-MAKE-DEFSETFS
#149Y(04 00 00 00 00 05 5F A9 1A 80 80 C8 1A 18 D9 DA DB DB B9 77 02 77 02 DC B0 B0 02 21 6E
D9 DE DB B3 77 02 CA 5D 03 14 5C 06 1A 80 42 D9 E0 D9 E1 B0 CD 78 03 CE 5D 03 1A 35 D9
E4 D9 E5 DC B1 77 04 D1 5D 03 1A 28 AC 90 01 6C 00 99 57 74 9A 57 57 57 74 D6 AA D7 D8
B4 02 21 FF B2 B4 23 04 4C A5 20 56 D9 E7 D9 E8 DC B1 77 04 D4 5D 03 14 77 05 5C 01 16
03 1A 0B 90 00 98 56 1C 04 A7 89 95 45 00 14 AA 7C A1 02 16 01 7F 00 98 20 69 16 01 A7
30 A3 19 06
)
CONCAT-PNAMES DEFSETF (STRUCT) (VALUE) LIST '%STRUCTURE-STORE QUOTE STRUCT VALUE 'THE (VALUE)
'SETF 'NTH (STRUCT) (VALUE) 'SETF 'AREF (VALUE) 'SETF 'SVREF (VALUE)
) )
#Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01)
CLOS::DEFINE-STRUCTURE-CLASS REMOVE-OLD-DEFINITIONS
#Y(CLOS::DEFINE-STRUCTURE-CLASS #9Y(01 00 00 00 00 02 00 19 02))
)
#Y(#:TOP-LEVEL-FORM-14 #18Y(00 00 00 00 00 01 D5 2E 01 D5 D7 C3 76 31 74 C0 19 01) DEFSTRUCT
REMOVE-OLD-DEFINITIONS MACRO
#Y(DEFSTRUCT
#1434Y(01 00 01 00 00 08 A9 6E 41 D5 8C 01 2D 80 50 9A 57 74 9B 57 75 A8 5F 60 01 02 60 D7 01
05 60 D7 D7 D7 5F B8 5F D7 D7 01 04 62 1A 8B 08 08 83 1A 18 04 1A 57 09 17 BF 8B 03 2A
BF 8A 7F 26 BE 5F A8 88 92 82 65 83 01 00 14 8B 7F 04 A7 5C 01 F6 A7 8A 08 80 E8 03 15
14 D9 62 1C D9 AB 5E 04 A9 2E 01 19 03 D8 D9 62 1C 5E 02 98 56 25 05 80 C5 C6 09 18 1A
80 D8 98 57 56 1C 75 09 18 1A 80 CE DC 62 1B 6C 08 80 17 1A 80 C4 98 1A 22 DF D9 62 1D
9C 57 57 1A 80 A3 98 57 1F 65 98 57 74 A7 2E 09 99 57 57 1F 64 99 57 57 74 8B 08 60 99
57 14 80 18 16 01 1A 80 97 98 57 1F 80 92 98 57 74 A7 2E 09 98 09 16 16 01 1A 80 84 98
57 1F 80 7F 98 57 74 A7 2E 09 98 09 15 16 01 1A 80 71 E0 D9 62 1C 62 1C 5E 03 8E 13 75
98 09 13 1A 80 60 E1 62 1C E4 6C 08 E5 E6 AB D2 76 77 03 5C 03 1A 20 98 57 74 98 1F 12
90 00 24 0C 0D E2 D9 9A 57 74 AA 2C 04 0E 98 57 56 F6 A7 8A 03 53 E1 A8 5C 02 09 10 16
01 1A 29 98 57 56 09 0E 1A 22 7A 0D 1A 1E C2 09 0C 1A 19 E8 D9 62 1C 9B 74 5E 03 90 00
8A 7F FF 27 D4 1A FF 10 98 57 56 1C 64 09 0C 7F 01 1A FE ED B2 02 55 09 0B 1B 81 5C B9
23 02 81 61 8F 12 81 5D EC D9 62 1A 5E 02 BF 6D 4C ED 7E 02 13 16 8E 15 81 54 EE 62 19
6C 08 5C 01 09 15 1A 81 4F 03 1D 1A 81 AF F3 D9 62 1A B4 5E 03 F4 D9 62 1A 62 1A 5E 03
61 22 D9 04 1D 1A 82 80 61 2A D9 62 1D AB BA 5E 04 83 19 08 04 19 57 FD 8F 11 81 66 75
90 00 A7 61 21 37 01 6E 76 8F 00 57 62 1B A8 C2 5A 58 09 13 37 01 7D 82 12 14 61 23 61
24 62 1E 77 02 61 25 61 26 61 27 61 24 AF 77 02 03 28 78 02 03 29 78 02 77 02 77 03 77
02 5C 01 09 11 A7 03 20 5A 14 B7 8B 00 FF A2 61 2B A8 03 2C 5A 14 6F 00 17 7D 43 06 1C
06 56 57 74 7D 89 08 91 02 5F 1A 81 73 98 1A 19 61 2F D9 62 21 AF AC 5E 04 98 57 75 5F
30 A8 1A 81 5A 83 01 00 1F 66 98 56 14 A7 B1 37 06 03 2D F8 03 2E F7 6E 56 8F 00 57 9A
1F 5D 9A 57 74 A7 88 5F 17 E1 61 30 AB 6C 08 E5 5F AB 77 03 77 03 80 09 37 01 7D 82 00
14 80 0A 99 57 75 A8 30 A8 16 01 9A 57 75 1A 81 0E 9B 57 57 57 75 02 1A 80 FC 61 32 D9
62 24 AE B3 62 27 5E 05 8E 00 69 AA 88 95 6E 9B 57 57 57 75 00 1A 80 E1 61 35 D9 62 24
AA AF B4 A1 57 57 57 74 5E 06 03 36 1A 81 70 16 02 B3 02 55 1C FE A1 09 0B 1C FE A4 B9
24 02 06 BF EB 2F 08 09 12 BD 02 21 FE A4 8F 15 FE AC 5F BD 37 07 7D 48 15 BA 02 22 07
EF 62 19 2F 08 09 13 B3 02 21 12 B3 23 1B 0E B3 23 1C 0A A4 1F FE 96 90 0C 24 1B FE 90
B1 8B 09 FE 90 B1 D7 8D 01 30 FE 89 B1 8B 85 05 B3 02 21 FE 87 B3 02 22 03 03 20 FB 90
19 8A 04 FE 93 8E 11 FE 9A BF 5C 01 09 10 61 24 B8 5C 02 09 0F 8F 0B 80 78 A4 1F 80 74
B7 A5 57 74 86 38 80 6C 03 39 14 D9 62 1A B6 5E 03 9A F7 79 00 1A 80 91 61 3C D9 04 1F
1A 80 D2 7A 03 1A 80 D3 8E 00 78 79 03 1A 80 CB 90 00 99 57 74 A8 23 31 FF 23 A8 24 33
FF 3D A7 9C 57 57 57 74 87 34 FF 24 9B 57 57 75 99 14 30 A8 16 02 98 57 57 F6 A7 89 92
55 16 01 16 02 7F 01 A8 89 92 FE 9D 16 02 90 14 24 37 04 AD 7D 41 07 16 03 8E 0B FF 88
AC B2 7E 02 33 09 B3 02 21 13 8F 0B 10 5F A2 09 0B 14 62 1A 61 3A 60 77 05 80 03 81 09
B0 AF 5F A8 88 92 80 7B 83 01 00 01 02 9A 1F FF 6F 83 02 01 9A 57 56 F6 A7 88 5F 17 E1
61 3B AA 6C 08 E5 5F AB 77 03 77 03 80 06 37 01 7D 82 00 14 80 07 A8 B0 37 06 03 2D F8
03 2E F7 8A 56 FF 46 60 5F 9C 1F 2B 9C 57 75 A7 88 92 22 90 00 99 57 74 A8 23 31 FF 3D
A8 23 33 0A 03 3D 14 D9 04 24 14 AB 5E 03 98 FA 16 02 98 57 57 F6 1A 5A 16 01 AA AE AB
AB AB 77 05 80 0A 16 04 81 02 7F 01 1A FF 80 16 02 98 FD 16 01 AA 7D 43 03 A8 7D 43 01
A9 7D 43 02 5F BD 1A 28 A7 B7 62 1D BC B4 B2 2C 06 3E 1A 15 90 00 98 20 6F 8E 17 03 98
09 17 A7 B7 62 1D BC B4 B2 2C 06 3F 14 80 02 16 01 7F 00 98 20 61 16 01 A7 30 A3 16 01
F6 61 40 AA 5F 1A 80 61 61 49 61 24 62 1F 77 02 77 02 5C 01 1A 80 9E BF BA 62 20 BA 2C
04 4A 1A 80 9C 14 62 20 BC 2C 03 4B 1A 80 98 61 47 61 24 62 24 77 02 61 51 62 1A 5C 04
1A 80 C3 83 01 00 14 AE 37 06 03 41 F8 03 2E F7 6E 56 61 26 61 27 61 24 62 1F 77 02 03
42 78 02 AC 77 03 99 57 75 A8 30 A8 16 02 81 02 7F 01 A8 89 92 50 16 03 61 43 61 44 61
45 5F 61 45 BA 61 46 B0 B0 6F 01 17 6F 02 20 AD 61 47 61 24 62 21 77 02 61 48 F0 62 1A
61 24 62 19 77 02 61 24 62 22 77 02 61 24 B9 77 02 04 11 78 05 77 04 77 01 32 02 20 78
02 B8 02 21 FF 54 00 14 8F 11 04 8E 18 FF 5A 00 14 8E 1A FF 5F 00 14 B3 B3 6D 9B 62 21
BD 62 21 AA 6A 04 4C 62 22 BE 62 22 AB 6A 04 4D 7E 02 20 00 61 4E 61 4F 61 24 62 24 77
02 03 50 78 02 BA 77 03 8E 17 FF 38 61 52 61 24 62 24 77 02 03 53 5D 02 14 61 24 62 24
77 02 77 03 32 05 20 78 03 5C 03 19 1E
)
2. MACRO-CALL-ERROR 0. "~S: invalid syntax for name and options: ~S" DEFSTRUCT
#S(HASH-TABLE EQ (:INITIAL-OFFSET . 217.) (:NAMED . 190.) (:TYPE . 183.)
(:PRINT-FUNCTION . 145.) (:INHERIT . 119.) (:INCLUDE . 119.) (:PREDICATE . 92.)
(:COPIER . 73.) (:CONSTRUCTOR . 41.) (:CONC-NAME . 8.)
)
"" "MAKE-" CONCAT-PNAMES DS-SYMBOL-OR-ERROR "~S ~S: argument list should be a list: ~S"
"~S ~S: At most one :INCLUDE argument may be specified: ~S" FUNCTION
"~S: Use of :PRINT-FUNCTION implicitly applies FUNCTION.~@
Therefore using ~S instead of ~S."
WARN "-PRINT-FUNCTION" LAMBDA (STRUCT STREAM DEPTH) (STRUCT STREAM DEPTH)
"~S ~S: unknown option ~S" "~S ~S: invalid syntax in ~S option: ~S"
"~S ~S: not a ~S option: ~S" "-P" "~S ~S: There is no :PREDICATE on unnamed structures." "-"
"MAKE-" "COPY-" VECTOR LIST "~S ~S: invalid :TYPE option ~S"
"~S ~S: The :INITIAL-OFFSET must be a nonnegative integer, not ~S"
"~S ~S: :INITIAL-OFFSET must not be specified without :TYPE : ~S" 1. DEFSTRUCT-DESCRIPTION
"~S ~S: included structure ~S has not been defined." CONS QUOTE LOAD-TIME-VALUE SVREF GET
('DEFSTRUCT-DESCRIPTION) (0.) "~S ~S: included structure ~S must be of the same type ~S."
#.#'COPY-LIST 3. #.#'FIRST #.#'EQ
"~S ~S: included structure ~S has no component with name ~S." "DEFAULT-" :READ-ONLY
"~S ~S: The READ-ONLY slot ~S of the included structure ~S must remain READ-ONLY in ~S."
:TYPE SUBTYPEP
"~S ~S: The type ~S of slot ~S should be a subtype of the type defined for the included strucure ~S, namely ~S."
"~S ~S: ~S is not a slot option." :INHERIT TYPEP
"~S ~S: structure of type ~S can't hold the name." SYMBOL "DEFAULT-"
"~S ~S: There may be only one slot with the name ~S." "~S ~S: ~S is not a slot option."
DS-MAKE-BOA-CONSTRUCTOR DS-MAKE-KEYWORD-CONSTRUCTOR 4. #.#'THIRD ('DEFSTRUCT-DESCRIPTION)
EVAL-WHEN (LOAD COMPILE EVAL) LET #.#'LIST %PUT 'DEFSTRUCT-DESCRIPTION
CLOS::DEFINE-STRUCTURE-CLASS DS-MAKE-PRED DS-MAKE-COPIER DS-MAKE-ACCESSORS DS-MAKE-DEFSETFS
SETF DOCUMENTATION ('STRUCTURE) 'STRUCTURE-PRINT REMPROP ('STRUCTURE-PRINT)
) )